﻿<!-- #include file="mymin.asp" -->
<card title="会员管理"><p>
<%
w systemMsgRoot

Dim id,msg,rs,delmem,status
id=getN("id",1)

If id<>1 Then
	msg="<br/><a href=""msg.asp?sid="&sid&"&amp;id="&id&""">发送消息</a>"
	status="<br/><a href=""status.asp?sid="&sid&"&amp;id="&id&""">修改状态</a>"
	' delmem="<br/><a href=""delmember.asp?sid="&sid&"&amp;id="&id&""">删除会员</a>"
End If

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select top 1 id,name,regtime,regip,logtime,logip,sex,birthday,money,points,experience,hu_level,status from 74hu_user where id="&id,myconn,1,1
If Not rs.eof	Then
	w "会员ID："&rs("id")&_
		"<br/>用户名："&nowml(rs("name"))&_
		"<br/>状态："&getStatus(rs("status"))&_
		"<br/>性别："&getSex(rs("sex"))&_
		"<br/>生日："&rs("birthday")&_
		"<br/>等级："&rs("hu_level")&_
		"<br/>"&bbsMoney&"："&rs("money")&_
		"<br/>"&bbsPoint&"："&rs("points")&_
		"<br/>经验："&rs("experience")&_
		"<br/>注册时间："&rs("regtime")&_
		"<br/>注册IP："&rs("regip")&_
		"<br/>最近登录："&rs("logtime")&_
		"<br/>最近登录IP："&rs("logip")& msg &_
		"<br/><a href=""points.asp?sid="&sid&"&amp;id="&id&""">修改积分</a>"&_
		"<br/><a href=""password.asp?sid="&sid&"&amp;id="&id&""">修改账户</a>"&status&delmem
Else
	w "没有此会员！"
end if
rs.close
set rs=nothing

%>
<br/>提示：新版取消会员删除功能，会员直接加黑即可。会员加黑后，所有帖子，回复不可见，无法发帖，发信息等<br/>
----------<br/><a href="member.asp?sid=<%=sid%>&amp;">[会员总管]</a>
<%
call bbsLast
%>